perm filename GRNGRA.SAI[S,HE] blob sn#650846 filedate 1982-04-04 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Grinnell stuff for doing graphics.
C00004 ENDMK
CāŠ—;
COMMENT Grinnell stuff for doing graphics.;

REQUIRE "GRNFUN.REL[GRI,CR]" LOAD_MODULE;

EXTERNAL PROCEDURE GrnLine(INTEGER X1,Y1,X2,Y2; INTEGER bitmask(1));
EXTERNAL PROCEDURE GrnDot(REAL X,Y; INTEGER bitmask);
EXTERNAL PROCEDURE GrnTxtD(REFERENCE INTEGER x,y; INTEGER ARRAY chars;INTEGER Nchars);
EXTERNAL PROCEDURE GRNERASE(INTEGER CHAN, SUBCHAN('377));
EXTERNAL PROCEDURE GRNPOLY(INTEGER ARRAY pts; INTEGER Npts);